(vc-revert-buffer1): Ignore non-marker elts of compilation-error-list.

diff --git a/lisp/vc.el b/lisp/vc.el
index 0f7a3557544547754ec8ee4e8d13e5a77a4fab90..cbbec3bbb5bf6a640b061d19d93fd5a261ef89e3 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -282,10 +282,11 @@ the master name of FILE; this is appended to an optional list of FLAGS."
                                          (buffer-error-marked-p nil))
                                      (while (and errors
                                                  (not buffer-error-marked-p))
-                                       (if (eq buffer
-                                               (marker-buffer
-                                                (car (cdr (car errors)))))
-                                           (setq buffer-error-marked-p t))
+                                       (and (markerp (car (cdr (car errors))))
+                                            (eq buffer
+                                                (marker-buffer
+                                                 (car (cdr (car errors)))))
+                                            (setq buffer-error-marked-p t))
                                        (setq errors (cdr errors)))
                                      (if buffer-error-marked-p buffer)))
                                  (buffer-list)))))))